home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)ua.d64 / dsp.turtlejoy < prev    next >
Text File  |  2007-02-28  |  908b  |  49 lines
  1. // DELETE "EXT.TURTLEJOY"
  2. // SAVE   "EXT.TURTLEJOY"
  3. //  BY ─AVID ╘URNER - 5/18/85
  4. //
  5. //DRAW USING JOYSTICK
  6. //
  7. ╨╥╧├ TURTLEJOY ├╠╧╙┼─
  8.   ╘╥┴╨ ┼╙├+
  9.   ╒╙┼ TURTLE
  10.   ╒╙┼ JOYSTICKS
  11.   GRAPHICSCREEN(0)
  12.   PENCOLOR(7)
  13.   TURTLESIZE(8)
  14.   SHOWTURTLE
  15.   WINDOW(0,319,0,199)
  16.   PLOTTEXT(20,192,"╨LUG ╩OYSTICK INTO ├╧╬╘╥╧╠ ╨ORT #2")
  17.   PLOTTEXT(0,184,"─RAW WITH ╩OYSTICK-╨RESS ╙╘╧╨ WHEN DONE")
  18.   ╫╚╔╠┼ ╬╧╘ ┼╙├ ─╧
  19.     JOYSTICK(2,DIRECTION,FIRE'BUTTON)
  20.     ├┴╙┼ DIRECTION ╧╞
  21.     ╫╚┼╬ 1
  22.       SETHEADING(0)
  23.     ╫╚┼╬ 2
  24.       SETHEADING(45)
  25.     ╫╚┼╬ 3
  26.       SETHEADING(90)
  27.     ╫╚┼╬ 4
  28.       SETHEADING(135)
  29.     ╫╚┼╬ 5
  30.       SETHEADING(180)
  31.     ╫╚┼╬ 6
  32.       SETHEADING(225)
  33.     ╫╚┼╬ 7
  34.       SETHEADING(270)
  35.     ╫╚┼╬ 8
  36.       SETHEADING(315)
  37.     ╫╚┼╬ 0
  38.     ╧╘╚┼╥╫╔╙┼ 
  39.       ╬╒╠╠
  40.     ┼╬─├┴╙┼ 
  41.     ╔╞ FIRE'BUTTON ╘╚┼╬ FORWARD(3)
  42.   ┼╬─╫╚╔╠┼ 
  43.   ╫╚╔╠┼ ┼╙├ ─╧ ╬╒╠╠
  44.   ╘╥┴╨ ┼╙├+
  45. ┼╬─╨╥╧├ TURTLEJOY
  46. //
  47. TURTLEJOY
  48. ┼╬─ "╨RESS ├TRL-─ TO PRINT PICTURE"
  49.